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define interface simple_memory ( 
define port; 

input. clock elk; 

input . control rst_n ; 

input . control rw; 

input . control en__n ; 

input . data [7:0] addr ; 

output . control wait__n ; 

inout.data [7:0] d; 
endport 



define alphabet; 

signal set={ elk, rst_n 

NOP: { posedge, 1 , 

RST: { posedge, 0, 

RREQ(Xa):{ posedge, 1, 

RW AI T : { posedge, 1, 

ROUT (Xd) : { posedge , 1 , 

endalphabet 



en_n, rw, addr, wait_n, d } 
* * , 1 , Z } ; 
*, *, Z } ; 
$i.Xa, 1, Z }; 
* , 0 , Z } ; 



1, $o.Xd }; 



define word ; 

void nop : NOP NOP* ; 
void reset : RST RST*; 

data(Xd) byte_read(Xa) :RREQ(Xa) RWAIT RWAIT ROUT (Xd) 
endword 



define sentence; 

reset [ reset I nop I byte_read (Xa) ]*; 
endsentence 
endinterf ace 
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module simple_memory ( elk, rst_n, rw, en_n, 
addr, wait_n, d, reject ) ; 

input elk, rst_n, rw, en_n, addr, wait_n, d; 

wire elk; 

wire rst_n; 

wire rw; 

wire en_n; 

wire [7:0] addr ; 

wire wait n; 

wire [ 7 : 0T d ; 

reg reject; 

reg [2:0] state; 

always @ (posedge elk) begin 

case (state) 

x initial_state : begin 
reject <= 1'bO; 
x RST( N s2) 
begin end 

end 

"si: begin 
RST ( x s2) 
N REJECT 
end 

x s2: begin 

% RST ( x s2) 

x NOP ( x s2) 

v RREQ ( x s3) 

x REJECT 
end 

x s3: begin 

x RWAIT ( x s4) 

v REJECT 
end 

N s4: begin 

s RWAIT ( x s5) 

x REJECT 
end 

x s5 : begin 

x ROUT ( x s2) 

s REJECT 
end 

default: begin 

state <= v initial_state ; 

reject <= 1 'b0 ; 
end 
end 

endmodule 



